home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 22 / PC Actual CD 22.iso / progs / DIRECTOR / data.z / Scriptable Authoring.dir / Scripts_41_Switch the castLib to the correct one.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  517 b   |  16 lines
  1. global gPuppetList, gCostumeSpriteList
  2.  
  3. on mouseDown
  4.   PlaySound("RadioButtonClick")
  5.   set firstSprite to the setOneCast of gPuppetList
  6.   set secondSprite to the setTwoCast of gPuppetList
  7.   set chosenCast to SelectRadioButton(the clickOn, "Switch Cast Mortice On", "Switch Cast Mortice Off", [firstSprite, secondSprite])
  8.   if string(chosenCast) contains "one" then
  9.     SetCastLib(1)
  10.   else
  11.     SetCastLib(2)
  12.   end if
  13.   SelectMask(the mask of gCostumeSpriteList)
  14.   SelectCostume(the costume of gCostumeSpriteList)
  15. end
  16.